home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #1 / Amiga Plus 1995 #1.iso / fish-disketten / fish_941-950 / d949 / bbbbs / bbbbs65.lha / rexx / Setup.rexx < prev    next >
OS/2 REXX Batch file  |  1991-12-06  |  732b  |  27 lines
  1. /** setup.rexx
  2. *
  3. *   This adds various libraries to ARexx's list, including
  4. *   QuickSort. Run this in your startup sequence or use it
  5. *   as an example.
  6. *
  7. **/
  8. check = addlib('rexxsupport.library',0,-30,0) 
  9. check = addlib('rexxmathlib.library',0,-30,0)
  10. check = addlib('rexxarplib.library',0,-30,0)
  11.  
  12. /*
  13. *   Add the QuickSort port, so we can use QSORT.
  14. *   First check if the port is already up. If not, run QuickSort
  15. *   and wait for the port to be there.
  16. */
  17. if ~showlist('p','QuickSortPort') then
  18. do
  19.    ADDRESS COMMAND "run quicksort >NIL:"
  20.    do i = 1 to 10
  21.       if ~showlist('p','QuickSortPort') then call delay 20
  22.       else leave i
  23.    end
  24.    if showlist('p','QuickSortPort') then call addlib('QuickSortPort',-30)   
  25. end
  26. exit 0
  27.